home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / disk-tools / cd-rom / atapi-cd-rom / a4000-atapi_deu / install < prev    next >
Text File  |  1996-02-26  |  16KB  |  583 lines

  1. ; ************************************************
  2. ; *
  3. ; * $VER: Install-ATAPI A4000 v1.00 Demo Vers (07.09.95)
  4. ; *
  5. ; * Installation for A4000 Atapi Package v 1.00
  6. ; *
  7. ; * Copyright © 1995 by Georg Campana
  8. ; *
  9. ; *    -------   G E R M A N    V E R S I O N    -----------
  10. ; *
  11. ; ************************************************
  12.  
  13. ;/// Variabili
  14. ; ****************************
  15. ;       Variabili
  16. ; ****************************
  17. ;
  18. (set DemoVersion        1) ; Demo Version
  19. (set ProductName        "A4000 ATAPI DEUTSCHE VERSION"  )  ; product name
  20. (set ProductBaseName    "A4000-Atapi")                    ; product base name
  21. (set VersionNum         "1.00 ")                     ; product version number
  22.  
  23. (set OSVersion          (/ (getversion) 65536))
  24. (set PctDone            0)
  25.  
  26. (set CPUOpts            0)    ; 0=68000,68010; 1=68020,68030,68040
  27.  
  28. (makeassign "CDPLUSPLUS" "" (safe))
  29.  
  30. (set Disk1Name                  "CDPLUSPLUS:")
  31.  
  32. (set MemSpace 1024)   ; 1K minimo di spazio necessario su disco
  33.  
  34. ;///
  35.  
  36. ;/// Proc setPkgOPts
  37. (procedure setPkgOpts
  38. ;
  39. ; ****************************
  40. ; * Wich Parts
  41. ; ****************************
  42. ;
  43.   (
  44.         (set PkgOpts
  45.                 (askoptions
  46.                         (prompt
  47.                            "Suche aus was Du vom Package"
  48.                            (" %s installieren willst" ProductName)
  49.                         )
  50.                         (help
  51.                                 "Hier kannst Du aussuchen welche Teile (Modules) Du vom"
  52.                                 (" Package %s installieren willst.\n" ProductName)
  53.                                 "\n"
  54.                                 "*** Atapi Device Driver\n"
  55.                                 "Hiermit wird der wichtige Device-Treiber"
  56.                                 " (cd.device ) ins Verzeichnis Devs: kopiert (Fundamental)\n"
  57.                                 "\n"
  58.                                 "*** CDplusplusFS\n"
  59.                                 "Mit dieser Option wird das spezielle Filesystem"
  60.                                 " der CD++ ins Verzeichnis L: kopiert (ratbar).\n"
  61.                                 "\n"
  62.                                 "*** MAP-Mini Atapi Player\n"
  63.                                 "Mit dieser Option wird der Mini Player"
  64.                                 " für CD-Audio ins Verzeichnis Utilities kopiert.\n"
  65.                                 "\n"
  66.                                 "*** TRKDownLoad Track-Downloader\n"
  67.                                 "Mit dieser Option wird das Program TRKDownload"
  68.                                 " (fürs Download von CD-Spuren) in Utilities kopiert.\n"
  69.                                 "\n"
  70.                                 "*** PlayCDXL\n"
  71.                                 "Mit dieser Option wird PlayCDXL ( ein Program"
  72.                                 " fürs Abspielen von CDXL Files ) in Utilities kopiert.\n"
  73.                                 "\n"
  74.                                 @askoptions-help
  75.                         )
  76.                         (choices
  77.                                 ; bit position 0 -- todo & 1
  78.                                 ;
  79.                                 "Atapi Device Driver          (16 Kbytes)"
  80.  
  81.                                 ; bit position 1 -- todo & 2
  82.                                 ;
  83.                                 "CDplusplusFS - CD Filesystem (23 Kbytes)"
  84.  
  85.                                 ; bit position 2 -- todo & 4
  86.                                 ;
  87.                                 "MAP- Mini Atapi Player       ( 9 Kbytes)"
  88.  
  89.                                 ; bit position 3 -- todo & 8
  90.                                 ;
  91.                                 "TRKDownLoad- Track DownLoader(15 Kbytes)"
  92.  
  93.                                 ; bit position 4 -- todo & 16
  94.                                 ;
  95.                                 "PlayCDXL - Player Film CDXL  (30 Kbytes)"
  96.  
  97.                         )
  98.                 )
  99.         )
  100.   )
  101. )
  102. ;///
  103.  
  104. ;/// Proc setDirPath
  105.  
  106. (procedure setDirPath
  107. ;
  108. ; ****************************
  109. ; * Ask the user for a directory name.
  110. ; ****************************
  111. ;
  112. ; these variables must be defined before calling this procedure:
  113. ;    DirPath
  114. ;
  115. ; this procedure returns the selected directory in DirPath
  116. ;
  117.    (
  118.  
  119.        (set DirPath
  120.                (askdir
  121.                        (prompt ("Wo soll das Package installiert werden   ( Normalerweise SYS: )" )
  122.  
  123.                        )
  124.                        (help   "Atapi Plug'n Play wird in das ausgesuchte Verzeichnis"
  125.                                " Installiert.\n"
  126.                                "Wenn Du es in eine Diskette installieren möchtest"
  127.                                " dann stecke diese in den Drive und suche Sie aus"
  128.                                " der Liste aus.\n"
  129.                                "\n"
  130.                                @askdir-help
  131.                        )
  132.                        (disk)
  133.                        (default "SYS:")
  134.                )
  135.        )
  136.  
  137.  
  138.  
  139.    )
  140. )
  141. ;///
  142.  
  143. ;/// Proc AskFsIcon
  144. ;
  145. ;
  146. (procedure AskFsIcon
  147. ;
  148. ; This procedure ask of wich cd Icon you want to install with wich Name
  149. ; It requires initialization of variables:
  150. ;
  151. ; In "DefaultIcon" ci deve essere quella accesa di default
  152. ; Ridà in "IconChoose" qual icona
  153. ; 0 nessuna - 1 AmiCDFilesystem
  154. ; 2 AmiCDFS - 3 CDfilesystem - 4 CDplusplusFS
  155. ;
  156.   (
  157.     (set IconChoose
  158.      
  159.            (askchoice
  160.                 (prompt "Suche aus,für welches CD-Filesystem du ein Piktogram installieren möchtest")
  161.                 (help
  162.                         "Hier kannst du aussuchen für welches Dateinsystem"
  163.                         " Atapi Plug'n Play Installiert werden soll.\n"
  164.                         "Hast Du schon CDplusplusFS installiert dann suche am besten"
  165.                         " diese Möglichkeit aus.\n"
  166.                         "\n"
  167.                         "Sollte Dein CD-filesystem nicht in der Liste"
  168.                         " vorkommen dann suche -Keines- aus , und"
  169.                         " modifizier später die Tooltypes im"
  170.                         " Piktogram :\n"
  171.                         "Device wird\nDevice=cd.device\n"
  172.                         "und Unit wird\nUnit=0\n\n"
  173.                         @askchoice-help
  174.                 )
  175.                 (choices
  176.                         "-Keines"
  177.                         "-AmiCDFileSystem - by Nicola Salmoria"
  178.                         "-cdrom-handler   - by Frank Munkert"
  179.                         "-CDFileSystem    - by CBM Commodore"
  180.                         "-CDplusplusFS    - by CD++"
  181.                 )
  182.                 (default DefaultIcon)
  183.            )
  184.     )
  185.   )
  186. )
  187. ;///
  188.  
  189. ;/// Proc GetDevName
  190. ;
  191. ;  in DevName si ritrova il nome da usare per l'icona
  192. ;
  193.  
  194.  
  195. (procedure GetDevName
  196.    
  197.    (
  198.      (set DevName
  199.            (askstring
  200.                      (prompt "Schreibe hier den Namen für das installierte CD-Laufwerk ohne den Doppelpunkt\nz.B. CD0")
  201.                      (help
  202.                              "Der ausgesuchte Name wird der"
  203.                              "  Name des Devices\n"
  204.                              "Es ist ratbar keinen langen Namen"
  205.                              " auszusucheni\n"
  206.                              "\nAm besten CD0 oder CD1 usw."
  207.                              " weil viele Programe diesen"
  208.                              " Namen suchen\n"
  209.                      )
  210.                      (default "CD0")
  211.            )
  212.      )
  213.    )
  214. )
  215. ;///
  216.  
  217. ;/// Proc AskAutoMount
  218. ;
  219. ;
  220. (procedure AskAutoMount
  221. ;
  222. ; Chiede se l'icona deve essere inserita nel devs Dosdrivers o nel
  223. ; storage dosdrivers
  224. ;
  225.   (
  226.     (set AutoMount
  227.      
  228.            (askbool
  229.                 (prompt "Möchtest Du daß das Laufwerk bei jedem Computerstart"
  230.                         " automatisch angeschaltet wird (Mount) ,"
  231.                         " statt manuell per-Mauseklick ?"
  232.                 )
  233.                 (help
  234.                         "Wenn Du positiv antwortest wird das Piktogram"
  235.                         " des Devices in das Verzeichnis:\n"
  236.                         "Devs:Dosdrivers kopiert\n"
  237.                         "Bei jedem Start wird so auch automatisch das"
  238.                         " CD-Laufwerk gestarted\n\n"
  239.                         "Ansonsten wird es in: Storage:DosDrivers\n"
  240.                         " kopiert , und Du mußt per-Hand auf das"
  241.                         " Piktogram klicken um daß Laufwerk zu -Mounten-"
  242.                 )
  243.                 (choices
  244.                         "Automatisch beim Start"
  245.                         "Nein , manuell"
  246.                 )
  247.                 (default 1)
  248.            )
  249.     )
  250.   )
  251. )
  252. ;///
  253.  
  254.  
  255. ; *************************************************************************
  256. ; *                         ACTUAL START OF SCRIPT
  257. ; *
  258. ; * Ask all questions for the user now, do all of the work later.
  259. ; *************************************************************************
  260. ;
  261. ;/// MAIN SCRIPT
  262. (onerror
  263.  
  264. )
  265. ; ****************************
  266. ;  Check for OS Version
  267. ; ****************************
  268.  
  269. (if (= DemoVersion 1)
  270.     (message "\n" "\n"
  271.              "Achtung: Das hier ist eine DEMO Version\n"
  272.              "vom Program  A4000_Atapi_Deu !\n"
  273.              "DU KANNST ES JEDEM KOMPLETT\n"
  274.              "WEITERGEBEN (ausser den Crakker)" "\n"
  275.              "\n" "\n" "\n"
  276.              "Atapi Plug'n Play is Copyright by \n"
  277.              "Georg Campana & Marco Campinoti ©1994"
  278.              (help "Wenn Du die registrierte Version erhalten möchtest dann lies das Handbuch oder rufe 0039/565/850621 an")
  279.     )
  280. )
  281.  
  282.  
  283. ; ****************************
  284. ; ****************************
  285. ;
  286.  
  287. (set DirPath "SYS:")
  288.  
  289. (setDirPath)
  290.  
  291. (set @default-dest DirPath)
  292.  
  293. (set devdest  (tackon @default-dest "Devs"))
  294. (set fsdest   (tackon @default-dest "L"))
  295. (set utildest (tackon @default-dest "Utilities"))
  296.  
  297.  
  298. (setPkgOpts)
  299.  
  300. (set DefaultIcon 0)
  301.  
  302. (if (= (exists (tackon fsdest "AmiCDFileSystem")) 1)
  303.     (set DefaultIcon 1)
  304. )
  305.  
  306. (if (= (exists (tackon fsdest "cdrom-handler")) 1)
  307.     (set DefaultIcon 2)
  308. )
  309.  
  310. (if (= (exists (tackon fsdest "CDFileSystem")) 1)
  311.     (set DefaultIcon 3)
  312. )
  313.  
  314. (if (IN PkgOpts 1)
  315.     (set DefaultIcon 4)
  316. )
  317.  
  318. (AskFsIcon)
  319.  
  320. (select IconChoose
  321.    (set FsName 0)
  322.    (set FsName "AmiCDFS")
  323.    (set FsName "AmiCDHandler")
  324.    (set FsName "CbmCDFS")
  325.    (set FsName "CDplusplusFS")
  326. )
  327.  
  328.  
  329. (set AutoMount 1)
  330. (set DevName "CD0")
  331.  
  332. (if (> @user-level 1)
  333.  
  334.     (if (<> IconChoose 0)
  335.         (
  336.          (GetDevName)
  337.          (AskAutoMount)
  338.         )
  339.     )
  340. )
  341.  
  342. (if (= AutoMount 1)
  343.     (set Icondest  (tackon @default-dest "Devs"))
  344.     (set Icondest  (tackon @default-dest "Storage"))
  345. )
  346.  
  347.  
  348.  
  349.  
  350.  
  351. (if (IN PkgOpts 0)
  352.     (set MemSpace (+ MemSpace 16000))
  353. )
  354. (if (IN PkgOpts 1)
  355.     (set MemSpace (+ MemSpace 23000))
  356. )
  357. (if (IN PkgOpts 2)
  358.     (set MemSpace (+ MemSpace  9000))
  359. )
  360. (if (IN PkgOpts 3)
  361.     (set MemSpace (+ MemSpace 30000))
  362. )
  363. (if (IN PkgOpts 4)
  364.     (set MemSpace (+ MemSpace 14000))
  365. )
  366. (if (<> IconChoose )
  367.     (set MemSpace (+ MemSpace 1000))
  368. )
  369.  
  370. (if (< (getdiskspace DirPath) MemSpace)
  371.     (if(> (getdiskspace DirPath) 0)
  372.        (
  373.           (abort "ACHTUNG: Der übrige Speicherplatz\n"
  374.                  ("auf der Platte %s\n" DirPath)
  375.                  ("beträgt nur um %ld bytes\n" (getdiskspace DirPath) )
  376.                  ("und es werden mindestens %ld benötigt\n" MemSpace)
  377.                  "\n"
  378.                  "Du kannst nochmal auf Install klicken\n"
  379.                  "und weniger Utilities aussuchen , oder\n"
  380.                  "unnötige Files von der Ziel-Platte\n"
  381.                  ("%s löschen\n" DirPath)
  382.           )
  383.        )
  384.     )
  385. )
  386.  
  387.  
  388.  
  389.  
  390.  
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400. ; if bit position 0 is on  Installa device
  401. (if (IN PkgOpts 0)
  402.      (
  403.  
  404.         
  405.         (if (< (exists devdest (noreq)) 2)
  406.  
  407.             (makedir devdest
  408.                (prompt "Neues Verzeichnis -Devs-")
  409.                (infos)
  410.             )
  411.         )
  412.  
  413.  
  414.         (copylib
  415.             (prompt "Installiere Device Driver")
  416.             (source (tackon Disk1Name "devs/cd.device"))
  417.             (dest devdest)
  418.             (optional force)
  419.         )
  420.         
  421.  
  422.      )
  423. )
  424. ; if bit position 1 is on Installa FileSystem
  425. (if (IN PkgOpts 1)
  426.      (
  427.  
  428.         
  429.         (if (< (exists fsdest (noreq)) 2)
  430.  
  431.             (makedir fsdest
  432.                (prompt "Neues Verzeichnis -L-")
  433.             )
  434.         )
  435.  
  436.  
  437.         (copylib
  438.             (prompt "Installiere FileSystem von CD++")
  439.             (source (tackon Disk1Name "l/CDplusplusFS"))
  440.             (dest fsdest)
  441.             (optional force)
  442.         )
  443.         
  444.  
  445.      )
  446. )
  447.  
  448. ; if bit position 2 is on Installa MAP
  449. (if (IN PkgOpts 2)
  450.      (
  451.  
  452.         
  453.         (if (< (exists utildest (noreq)) 2)
  454.  
  455.             (makedir utildest
  456.                (prompt "Neues Verzeichnis -Utilities-")
  457.                (infos)
  458.             )
  459.         )
  460.  
  461.  
  462.         (copyfiles
  463.             (prompt "Installiere Mini Atapi Player")
  464.             (source (tackon Disk1Name "utilities/MAP"))
  465.             (dest utildest)
  466.             (infos)
  467.             (optional force)
  468.         )
  469.         
  470.  
  471.      )
  472. )
  473.  
  474. ; if bit position 3 is on Installa TRKDownLoad
  475. (if (IN PkgOpts 3)
  476.      (
  477.  
  478.         
  479.         (if (< (exists utildest (noreq)) 2)
  480.  
  481.             (makedir utildest
  482.                (prompt "Neues Verzeichnis -Utilities-")
  483.                (infos)
  484.             )
  485.         )
  486.  
  487.  
  488.         (copyfiles
  489.             (prompt "Installiere TrkDownLoader")
  490.             (source (tackon Disk1Name "utilities/TRKDownLoad"))
  491.             (dest utildest)
  492.             (infos)
  493.             (optional force)
  494.         )
  495.         
  496.  
  497.      )
  498. )
  499.  
  500. ; if bit position 4 is on Installa PlayCDXL
  501. (if (<> DemoVersion 1)
  502.    (if (IN PkgOpts 4)
  503.         (
  504.  
  505.            
  506.            (if (< (exists utildest (noreq)) 2)
  507.  
  508.                (makedir utildest
  509.                   (prompt "Neues Verzeichnis -Utilities-")
  510.                   (infos)
  511.                )
  512.            )
  513.  
  514.  
  515.            (copyfiles
  516.                (prompt "Installiere PlayCDXL")
  517.                (source (tackon Disk1Name "utilities/PlayCDXL"))
  518.                (dest utildest)
  519.                (infos)
  520.                (optional force)
  521.            )
  522.            
  523.  
  524.         )
  525.    )
  526. )
  527. (if (> IconChoose 0)
  528.     (
  529.         (if (< (exists Icondest (noreq)) 2)
  530.  
  531.             (makedir Icondest
  532.                (prompt "Neues Verzeichnis Devs oder Storage")
  533.                (infos)
  534.             )
  535.         )
  536.  
  537.         (set Icondest  (tackon Icondest "Dosdrivers"))
  538.          
  539.         (copyfiles
  540.             (prompt "Installiere Device-Piktogram")
  541.             (source (tackon Disk1Name (tackon "Devs/Storage" FsName)))
  542.             (dest IconDest)
  543.             (newname  DevName)
  544.             (infos)
  545.             (optional force)
  546.         )
  547.  
  548.     
  549.         (if (= AutoMount 1)
  550.             ( message "\n" "\n"
  551.                    "Bei jedem starten des Computers wird\n"
  552.                    "das CD-Laufwerk automatisch ins System\n"
  553.                    "eingebindet !\n"
  554.                    "\n"
  555.                    "Du kannst dieses Verhalten jederzeit verändern\n"
  556.                    ("indem Du das Piktogram %s vom Verzeichnis" DevName)
  557.                    "Devs/Dosdrivers ins Verzeichnis Storage/Dosdrivers\n"
  558.                    "verschiebst\n"
  559.             )
  560.             ( message "\n" "\n"
  561.                    "Du kannst jederzeit das CD-ROM Laufwerk einbinden \n"
  562.                    ("indem du zweimal auf %s\n" DevName)
  563.                    "im Verzeichnis Storage/Dosdrivers klickst\n"
  564.                    "Soll es automatisch eigebunden werden, dann\n"
  565.                    "verschieb das Piktogram ins Verzeichnis Devs/Dosdrivers"
  566.             )
  567.         )
  568.     )
  569.     ( message "\n" "\n"
  570.            "Es wurde kein Piktogram für das\n"
  571.            "CD-ROM Laufwerk ausgesucht .\n"
  572.            "Du mußt es Dir deshalb selber bauen!\n"
  573.            "\n"
  574.            "Du kannst auch nocheinmal auf -Install- klicken\n"
  575.            "und Dir ein CD-Filesystem aussuchen\n"
  576.     )
  577.  
  578. )
  579.  
  580. (exit)
  581. ;///
  582.